(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.4' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     18551,        650]
NotebookOptionsPosition[     14795,        532]
NotebookOutlinePosition[     17057,        593]
CellTagsIndexPosition[     16937,        587]
WindowTitle->PauliOrder
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[GridBox[{
   {Cell["FEYN CALC SYMBOL", "PacletNameCell"], Cell[TextData[Cell[BoxData[
     ActionMenuBox[
      FrameBox[
       InterpretationBox[Cell[TextData[{
         "URL",
         StyleBox[" \[FilledDownTriangle]", "AnchorBarArrow",
          StripOnInput->False]
        }]],
        TextCell[
         Row[{"URL", 
           Style[" \[FilledDownTriangle]", "AnchorBarArrow"]}]]],
       StripOnInput->False], {"\<\"FeynCalc/ref/PauliOrder\"\>":>
      None, "\<\"Copy Wolfram Documentation Center URL\"\>":>
      Module[{DocumentationSearch`Private`nb$}, 
       DocumentationSearch`Private`nb$ = NotebookPut[
          Notebook[{
            Cell["FeynCalc/ref/PauliOrder"]}, Visible -> False]]; 
       SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
       FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
       NotebookClose[DocumentationSearch`Private`nb$]; Null], 
      Delimiter, "\<\"Copy web URL\"\>":>
      Module[{DocumentationSearch`Private`nb$}, 
       DocumentationSearch`Private`nb$ = NotebookPut[
          Notebook[{
            Cell[
             BoxData[
              MakeBoxes[
               Hyperlink[
               "http://reference.wolfram.com/language/FeynCalc/ref/PauliOrder.\
html"], StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
           False]]; SelectionMove[
        DocumentationSearch`Private`nb$, All, Notebook]; 
       FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
       NotebookClose[DocumentationSearch`Private`nb$]; 
       Null], "\<\"Go to web URL\"\>":>FrontEndExecute[{
        NotebookLocate[{
          URL[
           StringJoin[
            If[
             TrueQ[DocumentationBuild`Make`Private`wsmlinkQ$204294], 
             "http://reference.wolfram.com/system-modeler/", 
             "http://reference.wolfram.com/language/"], 
            "FeynCalc/ref/PauliOrder", ".html"]], None}]}]},
      Appearance->None,
      MenuAppearance->Automatic,
      MenuStyle->"URLMenu"]],
     LineSpacing->{1.4, 0}]], "AnchorBar"]}
  }]], "AnchorBarGrid",
 GridBoxOptions->{GridBoxItemSize->{"Columns" -> {
     Scaled[0.65], {
      Scaled[0.34]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
   "RowsIndexed" -> {}}},
 CellID->1],

Cell[TextData[{
 Cell["PauliOrder", "ObjectName"],
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{8, 0}],
    CacheGraphics->False],
   Spacer[8]]]],
 Cell[BoxData[""], "ObjectNameTranslation"]
}], "ObjectNameGrid"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{"PauliOrder", "[", "exp", "]"}]], "InlineFormula"],
     " \[LineSeparator]orders the Pauli matrices in expr alphabetically. \
PauliOrder[exp, orderlist] orders the Pauli matrices in expr according to \
orderlist."
    }]]}
  }]], "Usage",
 GridBoxOptions->{
 GridBoxBackground->{
  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
   "RowsIndexed" -> {}}},
 CellID->982511436],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 ButtonBox[Cell[TextData[{
   Cell[BoxData[
    InterpretationBox[
     StyleBox[
      GraphicsBox[{},
       BaselinePosition->Baseline,
       ImageSize->{6, 0}],
      CacheGraphics->False],
     Spacer[6]]]],
   "Details"
  }], "NotesFrameText"],
  Appearance->{Automatic, None},
  BaseStyle->None,
  ButtonFunction:>(FrontEndExecute[{
     FrontEnd`SelectionMove[
      FrontEnd`SelectedNotebook[], All, ButtonCell], 
     FrontEndToken["OpenCloseGroup"], 
     FrontEnd`SelectionMove[
      FrontEnd`SelectedNotebook[], After, CellContents]}]& ),
  Evaluator->None,
  Method->"Preemptive"]]]], "NotesSection",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1535527235],

Cell["", "SectionHeaderSpacer"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Options", "[", "PauliOrder", "]"}]], "Input",
 CellLabel->"In[54]:=",
 CellID->1005205598],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"PauliTrick", "\[Rule]", "True"}], ",", 
    RowBox[{"PauliReduce", "\[Rule]", "False"}], ",", 
    RowBox[{"PauliSigmaCombine", "\[Rule]", "False"}], ",", 
    RowBox[{"FCPauliIsolate", "\[Rule]", "True"}], ",", 
    RowBox[{"FeynCalcInternal", "\[Rule]", "False"}], ",", 
    RowBox[{"FeynCalcExternal", "\[Rule]", "False"}], ",", 
    RowBox[{"FCVerbose", "\[Rule]", "False"}], ",", 
    RowBox[{"MaxIterations", "\[Rule]", "\[Infinity]"}]}], "}"}], 
  TraditionalForm]], "Output",
 ImageSize->{564, 35},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[54]=",
 CellID->747262532]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{6, 0}],
    CacheGraphics->False],
   Spacer[6]]]],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CellTags->"PrimaryExamplesSection",
 CellID->46747839],

Cell[CellGroupData[{

Cell[TextData[{
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CellID->255657016],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CSI", "[", 
  RowBox[{"k", ",", "j", ",", "i"}], "]"}]], "Input",
 CellLabel->"In[1]:=",
 CellID->1633341388],

Cell[BoxData[
 FormBox[
  RowBox[{
   FormBox[
    SuperscriptBox[
     OverscriptBox[
      FormBox[
       StyleBox["\<\"\[Sigma]\"\>",
        StripOnInput->False,
        FontWeight->Bold],
       TraditionalForm], "_"], 
     FormBox[
      FormBox[
       StyleBox["k",
        StripOnInput->False,
        FontWeight->Bold],
       TraditionalForm],
      TraditionalForm]],
    TraditionalForm], ".", 
   FormBox[
    SuperscriptBox[
     OverscriptBox[
      FormBox[
       StyleBox["\<\"\[Sigma]\"\>",
        StripOnInput->False,
        FontWeight->Bold],
       TraditionalForm], "_"], 
     FormBox[
      FormBox[
       StyleBox["j",
        StripOnInput->False,
        FontWeight->Bold],
       TraditionalForm],
      TraditionalForm]],
    TraditionalForm], ".", 
   FormBox[
    SuperscriptBox[
     OverscriptBox[
      FormBox[
       StyleBox["\<\"\[Sigma]\"\>",
        StripOnInput->False,
        FontWeight->Bold],
       TraditionalForm], "_"], 
     FormBox[
      FormBox[
       StyleBox["i",
        StripOnInput->False,
        FontWeight->Bold],
       TraditionalForm],
      TraditionalForm]],
    TraditionalForm]}], TraditionalForm]], "Output",
 ImageSize->{81, 18},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[1]=",
 CellID->1809751487]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PauliOrder", "[", "%", "]"}]], "Input",
 CellLabel->"In[2]:=",
 CellID->997524077],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztmntMW1Ucx0ESEIeTUXG8Juscj+EYARMZDnXSzA3CYIEB849lAS3I2Hhq
kEQDYjY2Ftxi1oFTHMgCLqIjzAhGgQULLEB4BTceZkB4jVdboBRuKbcWWsdG
2/v89XI1/SQQ4N6e+/1+7++ce87hcmOSwmKfMTExSXtW9S0sOv2d1NTojHBr
1S8RiWnxcYn8DwITP+LH8VP3x5ip/mij+go2NTFZ/VlpxIgRI2wEVaCbLWEz
YbN9Nmv7f8NU8svT9yp/eyijfbEVaW91ZatYodX+ZHXGcT9X16i7YvaWkj7x
BMHIkM32YbURKSSaOYPrIQuUfmarYqEzabetf/6gnGY7itGbvi++8mGbVPvQ
rDDKyTG8ln01/hgM8UTAzpDN9gG1ESkkmjmD6yELoH5GqwJFRDMIwJVQuWhk
XtcAN9/K5+6IqO6uvFGQn3+9tEnEyChODr3iCX4cI0M22wfVRqSQaOYMrod0
m1D6GasKZORW+vH9u/emdclotaOYrsuM9HGwC/jp0YrWQVlXsqtzZHVzwTGv
wPSS+gczkAMrAJji8cHLkM32wbQRKSSaOYPrIQuofuaqAkUGfnjL1vn9lnmM
k9K1GB8f33jSQnsCl+NXMqo9Gi3e/9Sd4xJ6JPT83ellSPFw6BevBjMBnAzZ
bJ+UNjohaMDLGQ5iesgCpx8/eVTWX5IY4GprtY3rn1DcR31XAZ2uCtzu9J5w
Fuc8ZPTOVcHX1y4kHuWdrp7SYVHWne7Cea1gSHs0Qvov7rUyt7aw8szpW6Kq
c4NqKPsa9ItfR38C2Bmy2T5pbVRD0EAkZyCIFjYp4PTjJy+7/2WS4N4EIp9p
FYTYveCV249onaM96uoYflFxbbiDfWiNCKdM5INFMTeHVOMNujgxKtXRxZd6
v/Cw8cz7W1uHfEDgbeNytoS/a8vLfOEsxOoIzD6u+Cds6E0AO0M22yetjWoI
GojkjA9oYYPXCVTy8kd1f4xrLrTQcWaX41FKw5Vi6vesE+5W5pyAzLZ5nCyW
+q8EBmfVzeiZpCAPr+zj7Mnu2TgkIcNlyYe2m1vuPJF0yvN5MwvHY7k9tNdH
QPbXReoR/zS6E8DOkKp9xcSduLPNc7oPAtmnpI1KCOtXJJQzAGQKmwRQ+kkn
P98SvcdPz+xBNacrz07IyMvPi/feuvqK3BqWHufIThrlk423Ci/H+jp6f9wg
eXq7YXmq8eeqnr++8nE4IBhgfjOJnn3i4jESMACKke8PBdeK8U9k5O4/hnII
0EUCaw2yTgwhT1x/mpcmlOgYrNCF7ksH7V1TmlZnAqKawxxzh6jSP1taWtv7
SG39o3NtuZFhVzqk6OKDbA/7gxWTT97d5bGyICfrnW8Ef1IxynwPp2mfoHjs
BAwBwT7OwN1fb5BGCLBFAmsNsE4MIU+5ImnMSSns0f1y1Ujxm9ZbXr2gXqvN
NUXYWTidorDJuNR7zsc9Vv3B2YYQ7utFI4bbHF4e+zHm8NsbCDrToKuKmbGv
ZDKBdft+7ts4XgdYYV8NEyEQu/uw1sCDAm1QNSEovVjYOadnvTErDLY14xyp
l6xdeKjAe+tLIb9MkX4AKcbKfB39ytf+H6h6uvh7JXUuUNMLDDP2lZuTAP5z
nDH7GkHsKQNYa9BBQTaIDFdevt6sXhStSLorqsY2bPZJ22KdzW14NSLl6jt9
mV7c0G8HKexnotNV7+7wEQzKVXOQrhxeRNEwK17gYMq+cnMSwOvjDNpXw6Iy
oG1NIW4pv90uUcC0ZogG1xqd+jXezdL038W86XP7Lmnv58vHbifzfII++6b4
albK+YqBRWobjKi0My+SF5v3XUHu5zc65gy+3UQAJu0rNyUBzD7OsH01LCoD
utYkwpNubifrNSsAgKDAGzRixIgRI0aM/Jf5B6Vircc=
    "], {{0, 18}, {332, 0}}, {0, 
    255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->Automatic,
  ImageSizeRaw->{332, 18},
  PlotRange->{{0, 332}, {0, 18}}]], "Output",
 ImageSize->{336, 18},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"RasterizedOutput",
 CellLabel->"Out[2]=",
 CellID->1450302526]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CSID", "[", 
  RowBox[{"i", ",", "j", ",", "k"}], "]"}]], "Input",
 CellLabel->"In[3]:=",
 CellID->5485257],

Cell[BoxData[
 FormBox[
  RowBox[{
   FormBox[
    SuperscriptBox[
     FormBox[
      StyleBox["\<\"\[Sigma]\"\>",
       StripOnInput->False,
       FontWeight->Bold],
      TraditionalForm], 
     FormBox[
      FormBox[
       StyleBox["i",
        StripOnInput->False,
        FontWeight->Bold],
       TraditionalForm],
      TraditionalForm]],
    TraditionalForm], ".", 
   FormBox[
    SuperscriptBox[
     FormBox[
      StyleBox["\<\"\[Sigma]\"\>",
       StripOnInput->False,
       FontWeight->Bold],
      TraditionalForm], 
     FormBox[
      FormBox[
       StyleBox["j",
        StripOnInput->False,
        FontWeight->Bold],
       TraditionalForm],
      TraditionalForm]],
    TraditionalForm], ".", 
   FormBox[
    SuperscriptBox[
     FormBox[
      StyleBox["\<\"\[Sigma]\"\>",
       StripOnInput->False,
       FontWeight->Bold],
      TraditionalForm], 
     FormBox[
      FormBox[
       StyleBox["k",
        StripOnInput->False,
        FontWeight->Bold],
       TraditionalForm],
      TraditionalForm]],
    TraditionalForm]}], TraditionalForm]], "Output",
 ImageSize->{81, 18},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[3]=",
 CellID->759353013]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PauliOrder", "[", "%", "]"}]], "Input",
 CellLabel->"In[4]:=",
 CellID->1804070708],

Cell[BoxData[
 FormBox[
  RowBox[{
   SuperscriptBox[
    FormBox[
     StyleBox["\<\"\[Sigma]\"\>",
      StripOnInput->False,
      FontWeight->Bold],
     TraditionalForm], 
    FormBox[
     FormBox[
      StyleBox["i",
       StripOnInput->False,
       FontWeight->Bold],
      TraditionalForm],
     TraditionalForm]], ".", 
   SuperscriptBox[
    FormBox[
     StyleBox["\<\"\[Sigma]\"\>",
      StripOnInput->False,
      FontWeight->Bold],
     TraditionalForm], 
    FormBox[
     FormBox[
      StyleBox["j",
       StripOnInput->False,
       FontWeight->Bold],
      TraditionalForm],
     TraditionalForm]], ".", 
   SuperscriptBox[
    FormBox[
     StyleBox["\<\"\[Sigma]\"\>",
      StripOnInput->False,
      FontWeight->Bold],
     TraditionalForm], 
    FormBox[
     FormBox[
      StyleBox["k",
       StripOnInput->False,
       FontWeight->Bold],
      TraditionalForm],
     TraditionalForm]]}], TraditionalForm]], "Output",
 ImageSize->{81, 18},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[4]=",
 CellID->1298014942]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PauliOrder", "[", 
  RowBox[{"%%", ",", 
   RowBox[{"{", 
    RowBox[{"j", ",", "i", ",", "k"}], "}"}]}], "]"}]], "Input",
 CellLabel->"In[5]:=",
 CellID->2068399078],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"2", " ", 
    SuperscriptBox[
     FormBox[
      StyleBox["\<\"\[Sigma]\"\>",
       StripOnInput->False,
       FontWeight->Bold],
      TraditionalForm], 
     FormBox[
      FormBox[
       StyleBox["k",
        StripOnInput->False,
        FontWeight->Bold],
       TraditionalForm],
      TraditionalForm]], " ", 
    SuperscriptBox["\[Delta]", 
     RowBox[{
      FormBox[
       FormBox[
        StyleBox["i",
         StripOnInput->False,
         FontWeight->Bold],
        TraditionalForm],
       TraditionalForm], 
      FormBox[
       FormBox[
        StyleBox["j",
         StripOnInput->False,
         FontWeight->Bold],
        TraditionalForm],
       TraditionalForm]}]]}], "-", 
   RowBox[{
    SuperscriptBox[
     FormBox[
      StyleBox["\<\"\[Sigma]\"\>",
       StripOnInput->False,
       FontWeight->Bold],
      TraditionalForm], 
     FormBox[
      FormBox[
       StyleBox["j",
        StripOnInput->False,
        FontWeight->Bold],
       TraditionalForm],
      TraditionalForm]], ".", 
    SuperscriptBox[
     FormBox[
      StyleBox["\<\"\[Sigma]\"\>",
       StripOnInput->False,
       FontWeight->Bold],
      TraditionalForm], 
     FormBox[
      FormBox[
       StyleBox["i",
        StripOnInput->False,
        FontWeight->Bold],
       TraditionalForm],
      TraditionalForm]], ".", 
    SuperscriptBox[
     FormBox[
      StyleBox["\<\"\[Sigma]\"\>",
       StripOnInput->False,
       FontWeight->Bold],
      TraditionalForm], 
     FormBox[
      FormBox[
       StyleBox["k",
        StripOnInput->False,
        FontWeight->Bold],
       TraditionalForm],
      TraditionalForm]]}]}], TraditionalForm]], "Output",
 ImageSize->{165, 18},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[5]=",
 CellID->1348167359]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[" ", "FooterCell"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{725, 750},
WindowMargins->{{-10, Automatic}, {Automatic, -8}},
WindowTitle->"PauliOrder",
TaggingRules->{
 "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
  GridBox[{{
      RowBox[{
        ButtonBox[
        "FeynCalc", ButtonData -> "paclet:FeynCalc/guide/FeynCalc", 
         BaseStyle -> {"Link", "DockedLinkTrail"}]}]}}, ColumnAlignments -> 
    Left], "HasOptions" -> False, "ExampleCounter" -> 1, "NeedPlatMsgIn" -> 
  None, "RootCaptions" -> "", 
  "Metadata" -> {
   "built" -> "{2020, 6, 20, 19, 9, 20.080381}", 
    "history" -> {"9.3", "", "", ""}, "context" -> "FeynCalc`", 
    "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Feyn Calc Symbol", "language" -> "en", "paclet" -> "FeynCalc", "status" -> 
    "None", "summary" -> 
    "PauliOrder[exp] orders the Pauli matrices in expr alphabetically. \
PauliOrder[exp, orderlist] orders the Pauli matrices in expr according to \
orderlist.", "synonyms" -> {}, "tabletags" -> {}, "title" -> "PauliOrder", 
    "titlemodifier" -> "", "windowtitle" -> "PauliOrder", "type" -> "Symbol", 
    "uri" -> "FeynCalc/ref/PauliOrder"}, "SearchTextTranslated" -> ""},
CellContext->"Global`",
FrontEndVersion->"10.4 for Linux x86 (64-bit) (April 11, 2016)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[
    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
   Cell[
    StyleData["Input"], CellContext -> "Global`"], 
   Cell[
    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
  FrontEndVersion -> "10.4 for Linux x86 (64-bit) (April 11, 2016)", 
  StyleDefinitions -> "Default.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "PrimaryExamplesSection"->{
  Cell[5335, 167, 386, 15, 31, "PrimaryExamplesSection",
   CellTags->"PrimaryExamplesSection",
   CellID->46747839]},
 "RasterizedOutput"->{
  Cell[7563, 267, 2467, 49, 40, "Output",
   CellTags->"RasterizedOutput",
   CellID->1450302526]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"PrimaryExamplesSection", 16672, 576},
 {"RasterizedOutput", 16814, 580}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[582, 21, 2281, 53, 53, "AnchorBarGrid",
 CellID->1],
Cell[2866, 76, 287, 11, 45, "ObjectNameGrid"],
Cell[CellGroupData[{
Cell[3178, 91, 476, 13, 102, "Usage",
 CellID->982511436],
Cell[CellGroupData[{
Cell[3679, 108, 739, 24, 31, "NotesSection",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1535527235],
Cell[4421, 134, 31, 0, 70, "SectionHeaderSpacer"],
Cell[CellGroupData[{
Cell[4477, 138, 114, 3, 70, "Input",
 CellID->1005205598],
Cell[4594, 143, 680, 17, 56, "Output",
 CellID->747262532]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[5335, 167, 386, 15, 31, "PrimaryExamplesSection",
 CellTags->"PrimaryExamplesSection",
 CellID->46747839],
Cell[CellGroupData[{
Cell[5746, 186, 195, 6, 26, "ExampleSection",
 CellID->255657016],
Cell[CellGroupData[{
Cell[5966, 196, 133, 4, 27, "Input",
 CellID->1633341388],
Cell[6102, 202, 1315, 55, 39, "Output",
 CellID->1809751487]
}, Open  ]],
Cell[CellGroupData[{
Cell[7454, 262, 106, 3, 27, "Input",
 CellID->997524077],
Cell[7563, 267, 2467, 49, 40, "Output",
 CellTags->"RasterizedOutput",
 CellID->1450302526]
}, Open  ]],
Cell[CellGroupData[{
Cell[10067, 321, 131, 4, 27, "Input",
 CellID->5485257],
Cell[10201, 327, 1221, 52, 39, "Output",
 CellID->759353013]
}, Open  ]],
Cell[CellGroupData[{
Cell[11459, 384, 107, 3, 27, "Input",
 CellID->1804070708],
Cell[11569, 389, 1081, 46, 39, "Output",
 CellID->1298014942]
}, Open  ]],
Cell[CellGroupData[{
Cell[12687, 440, 190, 6, 27, "Input",
 CellID->2068399078],
Cell[12880, 448, 1849, 77, 39, "Output",
 CellID->1348167359]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[14768, 530, 23, 0, 41, "FooterCell"]
}
]
*)

(* End of internal cache information *)

